home *** CD-ROM | disk | FTP | other *** search
/ United Public Domain Gold 2 / United Public Domain Gold 2.iso / utilities / pu309.dms / pu309.adf / EAGLE (.txt) < prev    next >
AmigaBASIC Source Code  |  1990-08-26  |  12KB  |  197 lines
  1. 'country listings 408 © COPYRIGHT 1990
  2. TOP:
  3.    GOTO START
  4. 2 :
  5.    C$=LEFT$(CS$,1):
  6.    W=1:T=XN-2:FL=0:UP=0:DWN=0:Y=0
  7. 3 : 
  8.    X= INT (T/2)
  9.  4 IF C$ = LEFT$(XX$(T),1) THEN GOTO 29
  10.  5 IF C$ < LEFT$(XX$(T),1) THEN T = (T-X):X = INT(X/2):XL=1
  11.  6 IF X = 0 AND XL = 1 THEN T = T - 1
  12.  7 IF T < 1 THEN T = 0: GOTO 28
  13.  8 IF T > XN-1 THEN T = 0: GOTO 28
  14.  9 IF C$ > LEFT$(XX$(T),1) THEN T = (T+X):X = INT(X/2):XK=1
  15. 10 IF X=0 AND XK=1 THEN T=T+1
  16. 11 W=1
  17. 12 FL=FL+1: IF FL=20 THEN T=0: GOTO 18
  18. 13 IF T<1 THEN T=0: GOTO 28
  19. 14 IF T > XN-1 THEN T=0: GOTO 28
  20. 15 XL=0:XK=0: GOTO 4
  21. 16 IF C$= LEFT$(XX$(T),1) THEN GOTO 29
  22. 17 GOTO 22
  23. 18 IF C$ <> LEFT$(XX$(T),1) THEN 28
  24. 19 IF C$ = LEFT$(XX$(T),1) THEN GOTO 29
  25. 20 IF UP=1 THEN T=T+1: GOTO 18
  26. 21 IF DWN=1 THEN T=T-1: GOTO 18
  27.  
  28. 22 IF FL THEN GOTO 4
  29. 28 LOCATE 12,5:PRINT "NO COUNTRY LISTED":RETURN
  30. 29 IC=T
  31. COUNT1:   
  32.    IF C$=LEFT$(XX$(IC),1) THEN IC=IC+1:GOTO COUNT1
  33.    EN=IC:IC=T
  34. COUNT2:
  35.    IF C$=LEFT$(XX$(IC),1) THEN IC=IC-1:GOTO COUNT2
  36.    SN=IC
  37.    FOR I=SN TO EN
  38.    IF LEFT$(CS$,3) = > XX$(I) AND LEFT$(CS$,3) = < L$(I) THEN GOTO BINGO
  39.    NEXT I
  40.    LOCATE 14,5:PRINT "NOTHING FOUND":RETURN
  41. BINGO:   
  42.    LOCATE 10,5:PRINT CS$;:PRINT " ";:PRINT H$(I)
  43.    RETURN
  44.  
  45.  START:
  46. DIM XX$(600):DIM L$(600):DIM H$(600)
  47. FOR I = 1 TO 600
  48. READ XX$(I),L$(I),H$(I) 
  49. IF XX$(I) = "END" THEN XN=I: GOTO MAKEFILE
  50. NEXT I
  51. MAKEFILE:
  52. LOCATE 4,5:PRINT "Type in: WRITE to SAVE data"
  53. LOCATE 5,5:PRINT "Type in: PRINT to Print Country-listing"
  54. LOCATE 6,5:PRINT "Type in: LOG to go to LOGBOOK"
  55. LOCATE 8,5:INPUT"ENTER CALLSIGN ",CS$
  56. IF CS$="WRITE" THEN GOTO WRITEFILE
  57. IF CS$="PRINT" THEN GOTO PRINTFILE
  58. IF CS$="LOG" THEN RUN "RADIO-LOG"
  59. CLS
  60. GOSUB 2
  61. GOTO MAKEFILE
  62.  
  63.  
  64. WRITEFILE:
  65.  
  66. OPEN "COUNTRY" FOR OUTPUT AS #1
  67. WRITE #1,XN
  68. FOR I = 1 TO XN
  69. WRITE #1,XX$(I)
  70. WRITE #1,L$(I)
  71. WRITE #1,H$(I)
  72. NEXT I
  73. CLOSE #1
  74. KILL "COUNTRY.INFO"
  75. GOTO MAKEFILE
  76.  
  77. PRINTFILE:
  78. CLS:LOCATE 10,1:INPUT "START=";START$:START=VAL(START$)
  79. LOCATE 11,1:INPUT "FINISH=";FINISH$:FINISH=VAL(FINISH$)
  80. FOR I =START TO FINISH
  81. LPRINT I;:LPRINT TAB(8):LPRINT XX$(I);:LPRINT " ";:LPRINT L$(I);:LPRINT " ";:LPRINT H$(I)
  82. NEXT I
  83. GOTO MAKEFILE
  84.  
  85. DATA ///,///,/=CHR$(47)=1 LESS OF )0
  86. DATA 1A0,1A0,S.M.O.of MALTA,1S0,1SZ,SPRATLY ISL
  87. DATA 2A0,2ZZ,GREAT BRITAIN,3A0,3AZ,MONACO,3B0,3BZ,MAURITIUS
  88. DATA 3C0,3CZ,EQUATORIAL GUINEA,3D0,3D9,FIJI
  89. DATA 3DA,3DM,SWAZILAND,3DN,3DZ,FIJI,3E0,3FZ,PANAMA,3G0,3GZ,CHILI,3H0,3UZ,CHINA
  90. DATA 3V0,3VZ,TUNISIA,3W0,3WZ,VIETNAM,3X0,3XZ,REP.OF GUINEA,3Y0,3YZ,NORWAY
  91. DATA 3Z0,3ZZ,POLAND,4A0,4CZ,MEXICO,4D0,4IZ,PHILIPINES,4J0,4LZ,U.S.S.R,4M0,4MZ,VENUZUELA
  92. DATA 4N0,4OZ,YUGOSLAVIA,4P0,4SZ,SRI LANKA,4T0,4TZ,PERU,4U0,4UZ,UNITED NATIONS
  93. DATA 4V0,4VZ,HAITI,4W0,4WZ,YEMEN ARAB.REP.,4X0,4XZ,ISRAEL,4Y0,4YZ,INTERN.CIVIL AVIATION ORG.
  94. DATA 4Z0,4ZZ,ISRAEL,5A0,5AZ,LIBYA,5B0,5BZ,CYPRUS,5C0,5GZ,MOROCCO,5H0,5IZ,TANZANIA
  95. DATA 5J0,5KZ,COLOMBIA,5L0,5MZ,LIBERIA,5N0,5OZ,NIGERIA,5P0,5QZ,DENMARK,5R0,5SZ,MADAGASCAR
  96. DATA 5T0,5TZ,MAURITANIA,5U0,5UZ,NIGER,5V0,5VZ,TOGO,5W0,5WZ,WESTERN SAMOA,5X0,5XZ,UGANDA
  97. DATA 5Y0,5ZZ,KENYA,6A0,6BZ,EGYPT,6C0,6CZ,SYRIA,6D0,6JZ,MEXICO,6K0,6NZ,SOUTH KOREA
  98. DATA 6O0,6OZ,SOMALE DEM.REP.,6P0,6SZ,PAKISTAN,6T0,6UZ,SUDAN,6V0,6WZ,SENEGAL
  99. DATA 6X0,6XZ,MADAGASCAR,6Y0,6YZ,JAMAICA,6Z0,6ZZ,LIBERIA,7A0,7IZ,INDONESIA,7J0,7NZ,JAPAN
  100. DATA 7O0,7OZ,PEOPLE'S DEM.REP.OF JEMEN,7P0,7PZ,LESOTHO,7Q0,7QZ,MALAWI,7RA,7RZ,ALGERIA
  101. DATA 7S0,7SZ,SWEDEN,7T0,7YZ,ALGERIA,7Z0,7ZZ,SAUDI ARABIA,8A0,8IZ,INDONESIA
  102. DATA 8J0,8NZ,JAPAN,8O0,8OZ,BOTSWANA,8P0,8PZ,BARBADOS,8Q0,8QZ,MALDIVES,8R0,8RZ,GUYANA
  103. DATA 8S0,8SZ,SWEDEN,8T0,8YZ,INDIA,8Z0,8ZZ,SAUDI ARABIA,9A0,9AZ,SAN MARINO,9B0,9DZ,IRAN
  104. DATA 9E0,9FZ,ETHIOPIA,9G0,9GZ,GHANA,9H0,9HZ,MALTA,9I0,9JZ,ZAMBIA,9K0,9KZ,KUWAIT
  105. DATA 9L0,9LZ,SIERRA LEONE,9M0,9MZ,MALAYSIA,9N0,9NZ,NEPAL,9O0,9TZ,ZAIRE,9U0,9UZ,BURUNDI
  106. DATA 9V0,9VZ,SINGAPORE,9W0,9WZ,MALAYSIA,9X0,9XZ,RWANDA,9Y0,9ZZ,TRINIDAD AND TOBAGO
  107. DATA A20,A2Z,BOTSWANA,A30,A3Z,TONGA,A40,A4Z,SULTANATE OF OMAN,A50,A5Z,BHUTAN
  108. DATA A60,A6Z,UNITED ARAB EMIRATES,A70,A7Z,QATAR,A80,A8Z,LIBERIA,A90,A9Z,BAHRAIN 
  109. DATA AA0,ALZ,UNITED STATES OF AMERICA,AM0,AOZ,SPAIN,AP0,ASZ,PAKISTAN
  110. DATA AT0,AWZ,INDIA,AX0,AXZ,AUSTRALIA,AY0,AZZ,ARGENTINA,BA0,BUZ,CHINA
  111. DATA BV0,BVZ,TAIWAN,BW0,BZZ,CHINA
  112. DATA C20,C2Z,NAURU,C30,C3Z,ANDORRA,C40,C4Z,CYPRUS,C50,C5Z,GAMBIA,C60,C6Z,BAHAMA
  113. DATA C70,C7Z,WORLD METEOROLOGICAL ORG.,C80,C9Z,MOZAMBIQUE
  114. DATA CA0,CDZ,CHILE,CE0,CE0,&,CE1,CE8,CHILI,CE9,CE9,ANTARCTICA-CHILE,CEA,CEZ,CHILE
  115. DATA CF0,CKZ,CANADA,CL0,CMZ,CUBA,CN0,CNZ,MOROCCO
  116. DATA CO0,COZ,CUBA,CP0,CPZ,BOLIVIA,CQ0,CQZ,PORTUGAL,CR3,CR3,GUINEA-BISSAU,CS0,CT2,PORTUGAL,CT3,CT3,MADEIRA ISL
  117. DATA CU0,CUZ,AZORES ISL.,CV0,CXZ,URAQUAY
  118. DATA CY0,CY0,SABLE ISL.,CY9,CY9,ST.PAUL ISL.,CYA,CZZ,CANADA,D20,D3Z,ANGOLA,D40,D4Z,CAPE VERDE,D50,D5Z,LIBERIA
  119. DATA D60,D6Z,COMORES,D70,D9Z,SOUTH KOREA,DA0,DOZ,WEST GERMANY,DP0,DP0,ANTARCTICA (WEST GERMANY)
  120. DATA DP1,DRZ,WEST GERMANY,DS0,DTZ,SOUTH KOREA
  121. DATA DU0,DZZ,PHILIPPINES,EA0,EA5,SPAIN,EA6,EA6,BALEARIC ISL.,EA8,EA8,CANARY ISL.
  122. DATA EA9,EA9,CEUTA-MELILLA,EAA,EHZ,SPAIN,EI0,EJZ,IRELAND,EK0,EKZ,U.S.S.R
  123. DATA EL0,ELZ,LIBERIA,EM0,EOZ,U.S.S.R,EP0,EQZ,IRAN,ER0,ESZ,U.S.S.R
  124. DATA ET0,ETZ,ETHIOPIA,EU0,EWZ,BIELORUSSIAN S.S.R,EX0,EZZ,U.S.S.R
  125. DATA F00,FEZ,FRANCE,FG0,FGZ,GUADELOUPE,FH0,FHZ,MAYOTTE,FJ0,FJZ,FRENCH ST.MARTIN
  126. DATA FK0,FKZ,NEW CALADONIA,FL0,FLZ,DJIBOUTI,FM0,FMZ,MARTINIQUE,FO0,FOZ,CLIPPERTON ISL -OR- FRENCH OCEANA
  127. DATA FP0,FPZ,ST.PIERRE-MIQUELON ISL.,FR0,FRZ,&,FS0,FSZ,FRENCE ST.MARTIN
  128. DATA FT0,FTZ,&,FW0,FWZ,WALLIS-FUTUNA ISL.,FY0,FYZ,FRENCH GUIANA,G00,GBZ,GREAT BRITAIN
  129. DATA GC0,GCZ,JERSEY IS. or GURNSEY IS,GD0,GDZ,ISLE OF MAN,GI0,GIZ,NOTHERN IRELAND,GJ0,GJZ,JERSEY ISL
  130. DATA GM0,GMZ,SCOTLAND,GT0,GTZ,ISLE OF MAN,GU0,GUZ,GUERNSEY,GW0,GWZ,WALES
  131. DATA H20,H2Z,CYPRUS,H30,H3Z,PANAMA,H40,H4Z,SOLOMON,H60,H7Z,NICARAGUA,H80,H9Z,PANAMA
  132. DATA HA0,HAZ,HUNGARY,HB0,HB0,LIECHTENSTEIN,HB1,HBZ,SWITZERLAND,HC0,HC7,ECUADOR,HC8,HD8,GALAPAGOS ISL.
  133. DATA HD9,HDZ,ECUADOR,HE0,HEZ,SWITSERLAND
  134. DATA HF0,HFZ,POLAND,HG0,HGZ,HUNGARY,HH0,HHZ,HAITI,HI0,HIZ,DOMINICAN REP.
  135. DATA HJ0,HJZ,COLUMBIA,HK0,HK0,MALPELO ISL. -OR- SAN ANDREAS,HK1,HKZ,COLOMBIA,HL0,HLZ,SOUTH KOREA,HM0,HMZ,NORTH KOREA,HN0,HNZ,IRAQ
  136. DATA HO0,HPZ,PANAMA,HQ0,HRZ,HONDURAS,HS0,HSZ,THAILAND,HT0,HTZ,NICARAGUA
  137. DATA HU0,HUZ,EL SALVADOR,HV0,HVZ,VATICAN,HW0,HYZ,FRANCE AND FRENCH COMMUNITY
  138. DATA HZ0,HZZ,SAUDI ARABIA,I00,IRZ,ITALY,IS0,ISZ,SARDINIA,IT0,ITZ,ITALY,J20,J2Z,DJIBOUTI,J30,J3Z,GRENADA
  139. DATA J40,J4Z,GREECE,J50,J5Z,GUINEA-BISSAU,J60,J6Z,ST.LUCIA,J70,J7Z,COMMONWEALTH OF DOMINIVCA
  140. DATA J80,J8Z,ST.VINCENT & THE GRANADINUS,JA0,JCZ,JAPAN,JD0,JDZ,MINAMI or OGASAWARI,JE0,JSZ,JAPAN,JT0,JVZ,MONGOLIA
  141. DATA JW0,JWZ,BEAR ISL. SVALBARD,JX0,JXZ,JAN MAYEN,JY0,JYZ,JORDAN,JZ0,JZZ,INDONESIA
  142. DATA KA0,KC3,U.S.A (JAPAN),KC4,KC4,ANTARTICA (U.S.A.)
  143. DATA KC6,KC6,EAST or WEST CAROLINE ISL.,KG4,KG4,GUANTANAMO BAY,KG6,KG6,GUAM or MARIANA ISL.,KH0,KH0,NORTHERN MARINAS,KH1,KH1,BAKER - HOWLAND ISL.
  144. DATA KH2,KH2,GUAM ISL.,KH3,KH3,JOHNSTON ISL.,KH4,KH4,MIDWAY ISL.
  145. DATA KH5,KH5,PALMYRA GROUP-JARVIS ISL.,KH6,KH6,HAWAIIAN ISL.,KH7,KH7,KURI ISL.
  146. DATA KH8,KH8,AMERICAN SOMOA,KH9,KH9,WAKE ISL.,KJ0,KJZ,JOHNSTON ISL.,KL7,KL7,ALASKA,KM0,KMZ,MIDWAY ISL,KP1,KP1,NAVASSA ISL.
  147. DATA KP2,KP2,VIRGINS ISL.,KP4,KP4,PUERTO RICO,KP5,KP5,DESECHEO ISL.,KX6,KX6,MARSHALL ISL.
  148. DATA L20,L9Z,ARGENTINA,LA0,LNZ,NORWAY,LO0,LWZ,ARGENTINA,LX0,LXZ,LUXEMBURG,LY0,LYZ,U.S.S.R
  149. DATA LZ0,LZZ,BULGARIA,MA0,MZZ,GREAT BRITAIN,N00,NZZ,U.S.A,OA0,OCZ,PERU
  150. DATA OD0,ODZ,LEBANON,OE0,OEZ,AUSTRIA,OF0,OGZ,FINLAND,OH0,OH0,ALAND ISL.- FINLAND,OH1,OIZ,FINLAND,OJ0,OJZ,MARKET REEF,OK0,OMZ,CZECHOSLOVAKIA
  151. DATA ON0,OTZ,BELGIUM,OU0,OVZ,DENMARK,OX0,OXZ,GREENLAND,OY0,OYZ,FAROE ISL.,OZ0,OZZ,DENMARK,P20,P2Z,PAPUA NEW GUINEA,P30,P3Z,CYPRES
  152. DATA P40,P4Z,ARUBA,P50,P9Z,NORTH KOREA,PA0,PIZ,NETHERLANDS,PJ0,PJZ,NETHERLANDS ANTILLES
  153. DATA PK0,POZ,INDONESIA,PP0,PXZ,BRAZIL,PY0,PY0,BRAZIL - ISLANDS ETC.,PY1,PYZ,BRAZIL,PZ0,PZZ,SURINAM
  154. DATA RA1,RA1,U.S.S.R -OR- FRANZ JOSEF ISL.,RA2,RA8,U.S.S.R
  155. DATA RA9,RA9,ASIATIC R.S.F.S.R,RB0,RBZ,UKRAINE,RC0,RCZ,WHITE RUSSIAN S.S.R
  156. DATA RD0,RDZ,AZERBAIJAN,RF0,RFZ,GEOGIA,RG0,RGZ,ARMENIA,RH0,RHZ,TURKOMAN
  157. DATA RI0,RIZ,UZBEC,RJ0,RJZ,TADZHIK,RL0,RLZ,KAZAKH,RM0,RMZ,KIRGHIZ,RO0,ROZ,MOLDAVIA
  158. DATA RP0,RPZ,LITHUANIA,RQ0,RQZ,LATVIA,RR0,RRZ,ESTONIA,RT0,RTZ,UKRAINE,RU0,RZZ,U.S.S.R
  159. DATA S20,S3Z,BANGLADESH,S60,S6Z,SINGAPORE,S70,S7Z,SEYCHELLES,S90,S9Z,SOA TOME AND PRINCIPLE
  160. DATA SA0,SMZ,SWEDEN,SN0,SRZ,POLAND,SS0,SSM,EGYPT,SSN,STY,SUDAN,ST0,ST1,SOUTH SUDAN,ST2,STZ,SUDAN,SU0,SUZ,EGYPT
  161. DATA SV0,SZZ,GREECE,T20,T2Z,TUVALU,T30,T3Z,KIRIBATI,T40,T4Z,CUBA
  162. DATA T50,T5Z,SOMALI DEM.REP.,T60,T6Z,AFGANISTAN,T70,T7Z,SAN MARINO,TA0,TCZ,TURKEY,TD0,TDZ,GUATEMALA
  163. DATA TE0,TEZ,COSTA RICA,TF0,TFZ,ICELAND,TG0,TGZ,GUATEMALA,TH0,THZ,FRENCE AND FRENCH COMMUNITY
  164. DATA TI0,TIZ,COSTA RICA,TJ0,TJZ,CAMEROON,TK0,TKZ,FRANCE AND FRENCH COMMUNITY
  165. DATA TL0,TLZ,CENTRAL AFRICA REP.,TM0,TMZ,FRANCE AND FRENCH COMMUNITY
  166. DATA TN0,TNZ,CONGO,TO0,TQZ,FRANCE AND FRENCH COMMUNITY,TR0,TRZ,GABON,TS0,TSZ,TUNISIA
  167. DATA TT0,TTZ,CHAD,TU0,TUZ,IVORY COAST,TV0,TXZ,FRANCE AND FRENCH COMMUNITY
  168. DATA TY0,TYZ,BENIN,TZ0,TZZ,MALI,UA0,UA0,U.S.S.R
  169. DATA UA1,UA1,U.S.S.R -OR- FRANZ JOSEF ISL.,UA2,UA8,U.S.S.R
  170. DATA UA9,UA9,ASIATIC R.S.F.S.R,UB0,UBZ,UKRAINE,UC0,UCZ,WHITE RUSSIAN S.S.R
  171. DATA UD0,UDZ,AZERBAIJAN,UF0,UFZ,GEORGIA,UG0,UGZ,ARMENIA,UH0,UHZ,TURKOMAN
  172. DATA UI0,UIZ,UZBEC,UJ0,UJZ,TADZHIK,UL0,ULZ,KAZAKH,UM0,UMZ,KIRGHIZ,UO0,UOZ,MOLDAVIA
  173. DATA UP0,UPZ,LITHUANIA,UQ0,UQZ,LATVIA,UR0,URZ,ESTONIA,UT0,UTZ,UKRAINE,UU0,UZZ,U.S.S.R
  174. DATA V20,V2Z,ANTIGUA,V30,V3Z,BELIZE,V40,V4Z,ST.CHRISTOPHER & NEVIS
  175. DATA V80,V8Z,BRUNEI,VA0,VE0,CANADA,VE1,VE1,SABLE ISL. -OR- ST.PAUL ISL.
  176. DATA VE2,VGZ,CANADA,VH0,VJZ,AUSTRALIA,VK0,VK0,ANTARTICA -OR- ISL. (AUSTR.)
  177. DATA VK1,VK1,AUSTRALIA (A.C.T.),VK2,VK2,AUSTRALIA (N.S.W.),VK3,VK3,AUSTRALIA (VIC.)
  178. DATA VK4,VK4,AUSTRALIA (QLD),VK5,VK5,AUSTRALIA (W.A.),VK6,VK6,AUSTRALIA (W.A.)
  179. DATA VK7,VK7,AUSTRALIA (TAS.),VK8,VK8,AUSTRALIA (N.T.),VK9,VK9,AUSTRALIAN ISL.
  180. DATA VKA,VNZ,AUSTRALIA,VO0,VOZ,CANADA,VP0,VSZ,BRITISH OVERSEAS TERRITORIES
  181. DATA VT0,VWZ,INDIA,VX0,VX8,CANADA,VX9,VX9,SABLE ISL.,VXA,VXZ,CANADA,VY0,VY0,ST.PAUL ISL.
  182. DATA VZ0,VZZ,AUSTRALIA,W00,WZZ,U.S.A,XA0,XIZ,MEXICO,XJ0,XOZ,CANADA
  183. DATA XP0,XPZ,DENMARK,XQ0,XRZ,CHILE,XS0,XSZ,CHINA,XT0,XTZ,BURKINA FASO
  184. DATA XU0,XUZ,KHMER REP.,XV0,XVZ,VIETNAM,XW0,XWZ,LAOS,XX0,XXZ,PORTUGUESE OVERSEAS PROVINCES
  185. DATA XY0,XZZ,BURMA,Y20,Y9Z,EAST GERMANY
  186. DATA YA0,YAZ,AFGANISTAN,YB0,YHZ,INDONESIA,YI0,YIZ,IRAQ
  187. DATA YJ0,YJZ,VANUATU,YK0,YKZ,SYRIA,YL0,YLZ,U.S.S.R,YM0,YMZ,TURKEY,YN0,YNZ,NICARAGUA
  188. DATA YO0,YRZ,RUMANIA,YS0,YSZ,EL SALVADOR,YT0,YUZ,YUGOSLAVIA,YV0,YYZ,VENEZUELA
  189. DATA YZ0,YZZ,YUGOSLAVIA,Z20,Z2Z,ZIMBABWE
  190. DATA ZA0,ZAZ,ALBANIA,ZB0,ZJZ,BRITISH OVERSEAS TERRITORIES
  191. DATA ZK0,ZMZ,NEW ZEALAND,ZN0,ZOZ,BRITISH OVERSEAS TERRITORIES,ZP0,ZPZ,PARAGUAY
  192. DATA ZQ0,ZQZ,BRITISH OVERSEAS TERRITORIES,ZR0,ZUZ,REP.OF SOUTH AFRICA
  193. DATA ZV0,ZZZ,BRAZIL,[[[,[[[,[=CHR$(91)=1 MORE OF Z,END,END,END,END,END,END,END,END,END
  194.  
  195.  
  196.  
  197.